home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / B-Book Series / (k)b2.d64 / exe91 < prev    next >
Text File  |  2007-02-28  |  557b  |  28 lines
  1. 0010 PRINT CHR$(147) //CLEAR SCREEN//
  2. 0020 //
  3. 0030 FOR I:=1 TO 10 DO
  4. 0040 GAME
  5. 0050 ENDFOR I
  6. 0060 PRINT 
  7. 0070 PRINT "NOW I'M TIRED OF THIS GAME!"
  8. 0080 //
  9. 0090 PROC GAME 
  10. 0100 THINKOF:=RND(1,3)
  11. 0110 TRYGUESS
  12. 0120 ENDPROC GAME
  13. 0130 //
  14. 0140 PROC TRYGUESS 
  15. 0150 PRINT 
  16. 0160 PRINT "WHAT NUMBER DO I THINK OF (1,2,3)",
  17. 0170 INPUT GUESS
  18. 0180 PRINT 
  19. 0190 IF GUESS=THINKOF THEN
  20. 0200 PRINT "BRAVO, THAT'S RIGHT,"
  21. 0210 PRINT "I LIKE YOU."
  22. 0220 ELSE 
  23. 0230 PRINT "NO, THAT IS NOT RIGHT,"
  24. 0240 PRINT "I WAS THINKING OF ",THINKOF
  25. 0250 ENDIF 
  26. 0260 ENDPROC TRYGUESS
  27. 0270 //
  28.